home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok18.lha / Profile / Demos / Prim1.pro < prev    next >
Text File  |  1993-08-15  |  407b  |  25 lines
  1. MODULE Prim1;
  2.  
  3. FROM InOut IMPORT WriteInt;
  4.  
  5. CONST n = 1000;
  6.  
  7. VAR i,k: INTEGER;
  8. (* k: min = 2, max = 999 *)
  9. (* i: min = 2, max = 1000 *)
  10.     prim: BOOLEAN;
  11. (* prim: min = 0, max = 1 *)
  12.  
  13. BEGIN
  14.   FOR i:=2 TO n DO
  15.  (* 999 Durchläufe *)
  16.     prim := TRUE;
  17.     FOR k:=2 TO i-1 DO
  18.  (* 498501 Durchläufe *)
  19.       IF i MOD k = 0 THEN prim := FALSE END;
  20.     END;
  21.     IF prim THEN WriteInt(i,4) END;
  22.   END;
  23. END Prim1.
  24.  
  25.